home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / V-TPUG Programming Contest / (n)v1.d64 / zip (.txt) < prev   
Commodore BASIC  |  2009-01-19  |  2KB  |  100 lines
  1. 10 PRINT"[147]"
  2. 13 IN=4*(PEEK(36866)AND128)
  3. 15 SP=IN+64*(PEEK(36869)AND112)
  4. 17 CL=37888+IN
  5. 40 C=CL-SP:TB=0:TS=0
  6. 50 POKE36879,239
  7. 95 DIM SE(44)
  8. 96 ES=SP+512
  9. 120 PRINTTAB(5)"DIRECTIONS"
  10. 130 PRINTTAB(5)"7777777777"
  11. 140 PRINT" YOU WILL HAVE 2 MIN.":PRINT"TO GET YOUR BEST SCORE"
  12. 150 PRINT"[158]MOVEMENT:":PRINT"CRSR DN=LEFT":PRINT"CRSR RT=RIGHT":PRINT"F5=UP"
  13. 160 PRINT"F7=DOWN":PRINT""
  14. 170 PRINTTAB(14)"SCORING:"
  15. 180 PRINTTAB(14)"[144]W=1"
  16. 190 PRINTTAB(14)"[159]Q=2"
  17. 200 PRINTTAB(14)"[158]Z=3"
  18. 210 PRINTTAB(14)"S=5"
  19. 220 PRINTTAB(14)"A=10"
  20. 230 PRINT "YOU ARE:  [146]"
  21. 240 PRINT"DON'T HIT A [156]* OR":PRINT "YOU WILL GET [156] ZAPPED."
  22. 250 PRINT"PRESS ANY KEY TO START"
  23. 260 GETA$:IFA$=""THEN 260
  24. 270 PRINT"[147]"
  25. 330 PRINT"WHAT SKILL LEVEL?"
  26. 340 PRINT"PRESS 0,1,2,3 OR 4";
  27. 350 INPUT S
  28. 360 IF S>4 ORS<0THENPRINT"HUH?":GOTO340
  29. 390 PRINT"[147]"
  30. 400 DEF FN A(L)=INT(RND(1)*L)+SP+22
  31. 410 FORF=1TO40-2*S:D=FNA(483)
  32. 420 POKED,87:POKED+C,0:NEXTF
  33. 430 FORF=1TO25:D=FNA(483)
  34. 440 POKED,81:POKED+C,3:NEXTF
  35. 450 FORF=1TO10+4*S:D=FNA(505)
  36. 455 IF D>ES THEN SE(D-ES)=42:GOTO465
  37. 460 POKED,42:IF D>SP THEN POKED+C,4
  38. 465 NEXT F
  39. 470 FORF=1TO19:D=FNA(483)
  40. 480 POKED,90:POKED+C,7:NEXTF
  41. 490 FORF=1TO14:D=FNA(483)
  42. 500 POKED,83:POKED+C,2:NEXTF
  43. 510 FORF=1TO9+S:D=FNA(505)
  44. 515 IF D>ES THEN SE(D-ES)=65:GOTO 525
  45. 520 POKE D,65:IF D>SP THEN POKED+C,1
  46. 525 NEXT F
  47. 530 B=SP+252
  48. 540 TI$="000000"
  49. 550 PRINT"TIME:";120-INT(TI/60);"[157] "
  50. 560 IFTI/60>=120THENGOTO930
  51. 570 IF B<ES THEN POKEB,160:IF B>SP THEN POKEB+C,6
  52. 580 IF B<SP-44 THEN B=B+594
  53. 585 IFB>SP+549THENB=B-594
  54. 590 IFPEEK(197)=31THENH=190:DR=-1:GOTO630
  55. 600 IFPEEK(197)=23THENH=200:DR=1:GOTO630
  56. 610 IFPEEK(197) =55THENH=210:DR=-22:GOTO630
  57. 620 IFPEEK(197)=63THENH=220:DR=22
  58. 630 POKE36878,15:POKE36876,H
  59. 640 FORT=1TO30-5*S:NEXTT
  60. 650 IF B<ES THEN POKEB,32
  61. 655 B=B+DR
  62. 660 SC=0
  63. 662 IF B<ES THEN 670
  64. 664 IF SE(B-ES)=42 THEN 790
  65. 666 IF SE(B-ES)=65 THEN SC=10:GOTO 740
  66. 670 IFPEEK(B)=42THENGOTO790
  67. 680 IFPEEK(B)=87THENSC=1:GOTO740
  68. 690 IFPEEK(B)=81THENSC=2:GOTO740
  69. 700 IFPEEK(B)=90THENSC=3:GOTO740
  70. 710 IFPEEK(B)=83THENSC=5:GOTO740
  71. 720 IFPEEK(B)=65THENSC=10:GOTO740
  72. 730 GOTO760
  73. 740 TS=TS+SC
  74. 750 POKE36878,15:POKE 36876,160+PEEK(B)
  75. 760 FORT=1TO30-5*S:NEXTT
  76. 770 PRINT"SCORE=";TS
  77. 780 GOTO550
  78. 790 POKE36878,15
  79. 800 FORPI=1TO40:POKE36876,180-PI:NEXTPI
  80. 810 PRINT"[156]&&&& &&&& &&&&[160]&&[160]&&"
  81. 820 PRINT"&&&&[160]&&&&[160]&&&&[160]&&[160]&&"
  82. 830 PRINT"   &[160]&[160][160]&[160]&[160][160]&[160]&&[160]&&"
  83. 840 PRINT"  &  &&&& &&&& && &&"
  84. 850 PRINT" &   &&&& &&&& && &&"
  85. 860 PRINT"&&&&[160]&[160][160]&[160]&"
  86. 870 PRINT"&&&&[160]&[160][160]&[160]&[160][160][160][160]&&[160]&&"
  87. 890 POKE36878,0:POKE36876,0
  88. 900 FORT=1TO2000:NEXTT:PRINT"[147]"
  89. 910 PRINT"YOU LASTED";INT(TI/60)-3;"[157] SECONDS[146]"
  90. 920 GOTO970
  91. 930 POKE36878,15:FORAC=1TO80:POKE36876,210-AC:NEXTAC
  92. 940 POKE36876,0:POKE37878,0
  93. 950 PRINT"[147]"
  94. 960 PRINT"[147]......TIME IS UP......"
  95. 970 PRINTTAB(6)"SCORE=";TS
  96. 990 IFTS>TBTHENTB=TS:SL=S:PB=P
  97. 1040 TS=0:DR=0:H=0:PRINT"[145]"
  98. 1050 GOTO 330
  99. 1060 END
  100.